#!/usr/bin/env perl

use utf8;
use strict;

my $max_length = 0;


foreach my $word (keys %ENV){
	if($max_length < length $word){
		$max_length = length $word;
	}
}

printf "%${max_length}s\t+%-19s\n" => "-" x $max_length, "-" x 19;

foreach my $word (sort keys %ENV){
	printf "%${max_length}s\t%-s\n" => $word, $ENV{$word};
}
